10 GOSUB 90
20 L=232:H=PEEK(56)-1:Q=PEEK(775):IFQ<167THEN80
30 POKE 55,L:POKE51,L:POKE56,H:POKE52,H:POKE774,L:POKE775,H
40 FOR X=L+H*256TOX+21:READ D:POKEX,D:NEXT
50 POKE X,Q
60 DATA 72,152,72,32,159,255,169,1,44,141,2,208,246
70 DATA 169,0,133,198,104,168,104,76,26
80 NEW
90 POKE53281,0:POKE53280,2:PRINT"[147]"
100 PRINT"THIS SHORT ROUTINE ALLOWS YOU TO PAUSE"
110 PRINT"OR FREEZE A LISTING OF THE PROGRAM ON"
120 PRINT"THE SCREEN.
130 [153]:[153]:[153]:[153]"TO USE LIST FREEZER, LIST ANY BASIC"
140 [153]"PROGRAM AND HOLD DOWN THE SHIFT KEY."
150 [153]"THE LISTING WILL PAUSE.  TO FREEZE IT"
160 [153]"ENTIRELY WHILE FREEING YOUR HANDS,"
170 [153]"PRESS SHIFT LOCK.  YOU CAN RESTART THE"
180 [153]"LISTING AT ANY TIME BY RELEASING SHIFT"
190 [153]"OR SHIFT LOCK"
200 [153]"PRESS ANY KEY TO EXECUTEWAIT"
210 [161] A$:[139] A$[178]"" [167] 210
220 [142]